(rmail-desc-set-attribute): Use

rmail-header-add-header instead of rmail-header-set-header.

diff --git a/lisp/mail/rmaildesc.el b/lisp/mail/rmaildesc.el
index 9c4d6e79dffcbe1e8579ce978fbbc317d2176e38..2fb4329205dd381db56bff3b4eb3dffe9d48113d 100644 (file)
--- a/lisp/mail/rmaildesc.el
+++ b/lisp/mail/rmaildesc.el
@@ -410,7 +410,7 @@ set to the hyphen character (-)."
                   (car (cdr (assoc attr-index rmail-desc-attr-alist)))
                 ?-))
     (aset attributes attr-index code)
-    (rmail-header-persist-attributes attributes)))
+    (rmail-header-add-header rmail-header-attribute-header attributes)))
 
 (defun rmail-desc-set-start (n pos)
   "Set the start position for message N to POS."